home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
faq-s.zip
/
CONFIGRT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-05-04
|
5KB
|
121 lines
{$R-,S-,I-,D-,F+,V-,B-,N-,L+ }
{$M 65500,0,0 }
unit configrt;
interface
uses gentypes;
var versioncode:byte;
forcehangup,online,modeminlock,modemoutlock:boolean;
qr:longint;
useconf:boolean;
confm,confx:array [1..5] of lstr;
confmpw,confxpw:array [1..5] of mstr;
defconfm,defconfx:array [1..5] of boolean;
mprompt:lstr;
mhelp,syst1,syst2,syst3,mnew,mcheck,mfback,mchat,mlogoff,mansi:sstr;
longname,sysopname,faqdir,textdir,uploaddir,datadir,bbsdatadir,
asciidownload,textfiledir,doordir,networkdir,xferdir,
modemsetupstr,modemhangupstr,modemdialprefix,modemdialsuffix,appear,
disappear:lstr;
defbaudrate:longint;
defcolor1,defcolor2,defcolor3,defcolor4,defcolor5,defcolor6:integer;
usecom,answerring,anonymouslevel,numwelcomes,mintimeout,
sysoplevel,defuserlevel,defudlevel,defudpoints,
normbotcolor,normtopcolor,outlockcolor,splitcolor,statlinecolor,
uploadfactor,lvltoloan,timerestlvl,howmuchtime,maxloan:integer;
private,autologin,useconmode,escinmsgs,bkspinmsgs,{requireforms,}
allowloan,newusermatrix,echoit,allowcol,allowdatfn,
allowpause,allowkeypr,allowhandle,allowclrscr,zipcomment,
require1,require2,require3,require4,require5:boolean;
req1name,req2name,req3name,req4name,req5name:lstr;
dotchar:char;
supportedrates,downloadrates:baudset;
availtime,unavailtime,xmodemopentime,xmodemclosetime,timereststart,
timerestend:sstr;
usertime:array [1..100] of integer;
gfratio:integer;
logonlevel,postlevel,msgnextlvl,newvotinglvl:integer;
anonymousstr,systempassword,system2password,system3password,telenumber,newuserpass:mstr;
remotedoors,allowdoors,useqr,usecliche,leechweek:boolean;
eventtime,eventbatch:sstr;
dszport,qrlimit,qrmultifactor,ultimefactor,ulpercent,chance,gain,
numpoints,numthrows,convrate,maxdeposit:integer;
newusernote:mstr;
dszlogname:lstr;
availstr,notavailstr,cliche:lstr;
directvideomode,checksnowmode,hangnewusers,discunvalid:boolean;
qrexempt,mutation1,mutation2,mutation3,usrspeed:integer;
pkarc,lharc,pak,pkzip,titlestr,sendstr:lstr;
sysopmacro1,sysopmacro2,sysopmacro3,sysopmacro4,sysopmacro5,
sysopmacro6,sysopmacro7,sysopmacro8,sysopmacro9,sysopmacro10:lstr;
xlaston,matrixtype,readanonlvl,listuserlvl:integer;
checkautologin,usegambling,atmenu,albank,aldarts,alrr,alrb,
alhl,alr,alc,usetimebank,jshutup:boolean;
notitle,emailing,ems,periods,internalm,datascrambling,scrambled,slash,matrixfback,
matrixreqchat,noscramble,nosendprompt,screenoutput,leechzmodem,
usequote,filepw,offlocal,offcall,lockport:boolean;
usenet,featurea,featureb,featurec,featured,featuree,featuref,featureg,featureh,featurej:boolean;
netnum:integer; netpas:lstr; netcomment:lstr;
netstart,netend:sstr; hostphone:mstr; extender:lstr;
scr,mnplevel,xferpcr,gfpcr,doorpcr,triviapcr,pcrexempt,bnum,udratio,udexempt,
curbkscroll:word;
ansiedit,editor,codekey:lstr;
inbuf,outbuf:integer;
autovalidate:boolean;
pointvalue:integer;
qvmainl:integer;
qvxferl:integer;
qvxferp:integer;
qvgfile:integer;
qvnote :mstr;
lockoutpw:lstr;
downloadpw:lstr;
promptformat,promptformat1:lstr;
usemouse,usenuv,autonuv:boolean;
newvotelvl:integer;
volvl,voflvl,vofps,valnu,delnu:integer;
sblaster:boolean;
filler:array [1..2500] of byte;
area:arearec;
type configsettype=array [1..(6631)] of char;
(* scramblestor=array [1..52] of string[2]; *)
var configset:configsettype absolute versioncode;
var validprotos:set of char;
procedure readconfig;
implementation
procedure readconfig;
var q:file of configsettype;
i:integer;
begin
assign (q,'SETUP.CFG');
reset (q);
i:=ioresult;
if i=0
then read (q,configset)
else
begin
writeln ('SETUP.CFG not found! Loading Config Program.');
halt (67)
end;
system.close (q);
if versioncode<>thisversioncode then begin
writeln ('According to the version code in SETUP.CFG, your system was set up using');
write ('FAQ ');
if (versioncode<1) or (versioncode>thisversioncode)
then write ('1.0x')
else write (versioncodes[versioncode]);
writeln ('. Please run the appropriate conversion programs to');
writeln ('convert to this version, FAQ '+ver+'.');
halt (e_badconfig)
end
end;
end.